-module(ui_util).
-export([link_to_pid/1,get_param/3,get_param/2]).
link_to_pid(Pid) ->
	io_lib:format("server_info.yaws?pid=~s.~s.~s",pid_to_list(Pid)).
get_param(L,Param) ->
	get_param(L,Param,"").
get_param(L,Param,Default) ->
	case lists:keyfind(Param,1,L) of 
	{Param,V} ->
		V;
	_ ->
		Default
	end.